home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume27 / hp2pbm / patch01 next >
Encoding:
Text File  |  1992-01-05  |  27.3 KB  |  1,110 lines
  1. Newsgroups: comp.sources.misc
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject:  v27i071:  hp2pbm - HP PCL to Portable Bit Map converter, Patch01
  4. Message-ID: <1992Jan6.163713.10954@sparky.imd.sterling.com>
  5. X-Md4-Signature: 21a158e21441aa5f39676a9e9fddde3d
  6. Date: Mon, 6 Jan 1992 16:37:13 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: clewis@ferret.ocunix.on.ca (Chris Lewis)
  10. Posting-number: Volume 27, Issue 71
  11. Archive-name: hp2pbm/patch01
  12. Environment: UNIX
  13. Patch-To: hp2pbm: Volume 26, Issue 102-104
  14.  
  15. This is the official patch 01 for Hp2pbm.  Please apply it by:
  16.  
  17.     cd <hp2pbm source directory>
  18.     patch -N -p < <this file>
  19.  
  20. Michael Haws, uunet!yonder!michael, did a fair amount of work
  21. on hp2pbm, and they comprise most of the changes in this patch.
  22. I include his description here:
  23.  
  24. | Items that still require some work include:  All measurements should
  25. | be kept in units of 1/3600 inches as opposed to dots (1/300).  The HPLJII uses
  26. | 1/3600 inches as it's unit of measure.  The HPLJII then converts this unit
  27. | to dots (1/300) just prior to printing (see HP Technical Reference Manual).  
  28. | 
  29. | Fixed underlining is now supported correctly, floating underlining is yet
  30. | to be added.
  31. | 
  32. | All in all I am very pleased with hp2pbm and want to thank all involved
  33. | for their efforts.
  34. | 
  35. | My changes to hp2pbm include:
  36. | 
  37. |     1. Left and right margins are now stored in units of dots and
  38. |        not columns.  Column positions are affected by changes in
  39. |        HMI, while left and right margins need to be fixed positions.
  40. | 
  41. |     2. Type of clen variable was changed from short to double so 
  42. |        that it could handle fractional lengths.
  43. | 
  44. |     3. Left edge of the logical page is defined to be 50 dots and
  45. |        is stored in LEFT_LOGICAL.  Right edge of logical page is
  46. |        stored in RITE_LOGICAL.  BMX must never be less than
  47. |        LEFT_LOGICAL nor greater than RITE_LOGICAL.
  48. | 
  49. |     4. getcfn() now makes certain that the current font meets the 
  50. |        latest font selection criteria.
  51. | 
  52. |     5. Resetting text length now works correctly.
  53. | 
  54. |     6. Resetting column now works correctly.
  55. | 
  56. |     7. Improved method for underlining.  Still needs work.
  57. |     
  58. |     8. Added code to handle the tab character.
  59. | 
  60. |     9. Carriage return now works properly.
  61. | 
  62. |     10. Formfeeds now work properly.
  63.  
  64. Thank you Michael!
  65.  
  66. Further, I modified the "-r" option to permit the specification of
  67. a pipeline.  So, for example, you can use this with psroff driving
  68. an Epson 24 pin printer thusly:
  69.  
  70.     psroff -Tlj -t ... | hp2e24 '-r|pbm2e24' | <your spooler>
  71.  
  72.  
  73. ./hp2pbm.S        -r documentation, general fixups
  74. ./Makefile        added a regression test
  75. ./hpfntwrite.c        Michael's changes plus -r
  76. ./hpp.c            -r
  77. ./hptopbm.h        Version now is V1.01
  78.  
  79. Patchwrapped: 920105232033
  80.  
  81. Index: ./hp2pbm.S
  82. *** /tmp/PATCHold/./hp2pbm.S    Sun Jan  5 23:18:30 1992
  83. --- ./hp2pbm.S    Sun Jan  5 23:18:31 1992
  84. ***************
  85. *** 1,4 ****
  86. ! .\"Copyright 1989, 1990, 1991 by Chris Lewis 1.1 91/12/03
  87.   .TH HP2PBM %%MANEXT%% "standalone"
  88.   .SH NAME
  89.   hp2pbm,hp2hifax,hp2lofax,hp2sun,hp2e24 \- Translate HPLJ codes to to Postscript or PBM
  90. --- 1,4 ----
  91. ! .\"Copyright 1989, 1990, 1991 by Chris Lewis 1.2 92/01/05
  92.   .TH HP2PBM %%MANEXT%% "standalone"
  93.   .SH NAME
  94.   hp2pbm,hp2hifax,hp2lofax,hp2sun,hp2e24 \- Translate HPLJ codes to to Postscript or PBM
  95. ***************
  96. *** 14,21 ****
  97.   .SH DESCRIPTION
  98.   The
  99.   .B hp2pbm
  100. ! program (linked to any of its aliases) is a program that interprets HP PCL (Hewlett Packard Printer Control
  101. ! Language - the language of HP Laserjets)
  102.   escape code sequences.
  103.   .B Hp2pbm
  104.   can then generate an english description of the codes, translate the input
  105. --- 14,21 ----
  106.   .SH DESCRIPTION
  107.   The
  108.   .B hp2pbm
  109. ! program (linked to any of its aliases) is a program that interprets HP PCL
  110. ! (Hewlett Packard Printer Control Language - the language of HP Laserjets)
  111.   escape code sequences.
  112.   .B Hp2pbm
  113.   can then generate an english description of the codes, translate the input
  114. ***************
  115. *** 31,37 ****
  116.   that has been extended to optionally emit PBM.
  117.   .B Hpinterp
  118.   is a part of
  119. ! .BR psroff 
  120.   This can be considered to be an ``after market'' optional upgrade
  121.   to
  122.   .BR psroff .
  123. --- 31,37 ----
  124.   that has been extended to optionally emit PBM.
  125.   .B Hpinterp
  126.   is a part of
  127. ! .BR psroff .
  128.   This can be considered to be an ``after market'' optional upgrade
  129.   to
  130.   .BR psroff .
  131. ***************
  132. *** 48,56 ****
  133.   .BR CorelDraw ,
  134.   including (some) built in and all downloaded fonts (except
  135.   compressed ones) and including built in and downloaded graphics and rasters.
  136. ! hp2pbm can be used to drive a number of different configurations, such as
  137.   Postscript printers, Klaus Schallhorn's
  138. ! .B faxpak 
  139.   (to transmit faxes using a fax modem),
  140.   or other devices using PBM converters, such as Epson 24 pin printers,
  141.   Sun displays, 3b1 consoles etc.
  142. --- 48,57 ----
  143.   .BR CorelDraw ,
  144.   including (some) built in and all downloaded fonts (except
  145.   compressed ones) and including built in and downloaded graphics and rasters.
  146. ! .B Hp2pbm
  147. ! can be used to drive a number of different configurations, such as
  148.   Postscript printers, Klaus Schallhorn's
  149. ! .B faxpak
  150.   (to transmit faxes using a fax modem),
  151.   or other devices using PBM converters, such as Epson 24 pin printers,
  152.   Sun displays, 3b1 consoles etc.
  153. ***************
  154. *** 68,74 ****
  155.   option tells
  156.   .B hp2pbm
  157.   to emit Postscript to standard output.
  158. ! (Specifying both \-v and \-p at the same time is rather confusing)
  159.   Note: unless
  160.   .B hp2pbm
  161.   is used with the rest of the
  162. --- 69,75 ----
  163.   option tells
  164.   .B hp2pbm
  165.   to emit Postscript to standard output.
  166. ! Specifying both \-v and \-p at the same time is rather confusing.
  167.   Note: unless
  168.   .B hp2pbm
  169.   is used with the rest of the
  170. ***************
  171. *** 90,102 ****
  172.   .BI f n
  173.   where \f2n\fP is the HP PCL font ID number.
  174.   The ``FONTS'' directory should be created manually before running
  175. ! .B hp2pbm.
  176.   A file called
  177.   .BI f n .desc
  178.   is also created in the ``FONTS'' directory, which contains a description of
  179.   each character.
  180.   If the \-c option is specified, an ASCII drawing will be made
  181. ! of each glyph in the font in the 
  182.   .B .desc
  183.   file.
  184.   This is very useful for examining HP PCL fonts, whether they are
  185. --- 91,103 ----
  186.   .BI f n
  187.   where \f2n\fP is the HP PCL font ID number.
  188.   The ``FONTS'' directory should be created manually before running
  189. ! .B hp2pbm .
  190.   A file called
  191.   .BI f n .desc
  192.   is also created in the ``FONTS'' directory, which contains a description of
  193.   each character.
  194.   If the \-c option is specified, an ASCII drawing will be made
  195. ! of each glyph in the font in the
  196.   .B .desc
  197.   file.
  198.   This is very useful for examining HP PCL fonts, whether they are
  199. ***************
  200. *** 106,115 ****
  201.   .BI \-r value
  202.   option is specified,
  203.   .B hp2pbm
  204. ! (hp2??fax and hp2e24) 
  205. ! creates PBM files. The associated argument is
  206. ! the basename for the generated files.
  207.   The first page is named ``value.0'', second ``value.1'' etc.
  208.   The \-d option specifies a resolution not automatically assumed
  209.   from argv[0].
  210.   It is specified as
  211. --- 107,130 ----
  212.   .BI \-r value
  213.   option is specified,
  214.   .B hp2pbm
  215. ! (hp2??fax and hp2e24) creates PBM files.
  216. ! The associated argument is the basename for the generated files.
  217.   The first page is named ``value.0'', second ``value.1'' etc.
  218. + If
  219. + .I value
  220. + has a pipe symbol (``|'') as the first character, the rest
  221. + .I value
  222. + is used as a pipeline to send each page.
  223. + Hence, for example, you can use
  224. + .B hp2pbm
  225. + with psroff like so:
  226. + .sp
  227. + .nf
  228. + .in +1i
  229. + psroff -Tlj -t file | hp2e24 '-r|pbm2e24' | lp
  230. + .in -1i
  231. + .fi
  232. + .P
  233.   The \-d option specifies a resolution not automatically assumed
  234.   from argv[0].
  235.   It is specified as
  236. ***************
  237. *** 145,160 ****
  238.   Hewlett Packard Laserjet documentation.
  239.   Adobe Systems Postscript documentation.
  240.   .SH WARNINGS
  241. - .B Hp2pbm's 
  242. - handling of downloaded macros is not fully tested. 
  243. - Compressed fonts (Laserjet II) and scalable built in fonts (Laserjet 
  244. - III) are not supported. Except for these limitations
  245. - .B Hp2pbm
  246. - should be fully compatible with Laserjet II printers. 
  247.   .P
  248. ! PBM file sizes are resolution dependent (legal size or A4 paper 
  249. ! at 300DPI: as much as 1.2Mb for each page).
  250.   .P
  251.   The
  252.   .B \-p
  253.   option was implemented soley as a test jig for the HP PCL output
  254. --- 160,179 ----
  255.   Hewlett Packard Laserjet documentation.
  256.   Adobe Systems Postscript documentation.
  257.   .SH WARNINGS
  258.   .P
  259. ! .B "Hp2pbm output can be huge!"
  260. ! PBM file sizes are resolution dependent.
  261. ! At 300DPI a legal size sheet is 1.2 megabytes
  262. ! .B "PER PAGE" !
  263.   .P
  264. + .B "Hp2pbm's"
  265. + handling of downloaded macros is not fully tested.
  266. + Compressed fonts (Laserjet II) and scalable built in fonts (Laserjet
  267. + III) are not supported.
  268. + Except for these limitations
  269. + .B Hp2pbm
  270. + should be fully compatible with Laserjet II printers.
  271. + .P
  272.   The
  273.   .B \-p
  274.   option was implemented soley as a test jig for the HP PCL output
  275. ***************
  276. *** 164,174 ****
  277.   The Postscript generating code isn't complete, but this will
  278.   probably be rectified in future.
  279.   .P
  280. ! .B Hp2ps
  281.   will not create a FONTS directory if one doesn't exist, and will die if
  282.   there isn't one.
  283. ! .PP
  284. ! .B "Hp2ps \-p"
  285.   will attempt to do something sane with selecting a font by characteristic,
  286.   but be warned, these use the printer's built-in fonts (which are likely
  287.   to be radically different from a LJ's), so the widths may be different and
  288. --- 183,193 ----
  289.   The Postscript generating code isn't complete, but this will
  290.   probably be rectified in future.
  291.   .P
  292. ! .B Hp2pbm
  293.   will not create a FONTS directory if one doesn't exist, and will die if
  294.   there isn't one.
  295. ! .P
  296. ! .B "Hp2pbm \-p"
  297.   will attempt to do something sane with selecting a font by characteristic,
  298.   but be warned, these use the printer's built-in fonts (which are likely
  299.   to be radically different from a LJ's), so the widths may be different and
  300. Index: ./Makefile
  301. *** /tmp/PATCHold/./Makefile    Sun Jan  5 23:18:40 1992
  302. --- ./Makefile    Sun Jan  5 23:18:41 1992
  303. ***************
  304. *** 1,4 ****
  305. ! # Makefile for hptopbm standalone release 1.2 91/12/03
  306.   
  307.   #    Configuration:
  308.   
  309. --- 1,4 ----
  310. ! # Makefile for hptopbm standalone release 1.3 92/01/05
  311.   
  312.   #    Configuration:
  313.   
  314. ***************
  315. *** 61,74 ****
  316.           @chmod 444 $@
  317.   
  318.   # components
  319. ! mem.o:        mem.c
  320. !         $(CC) -c $(CFLAGS) mem.c
  321.   
  322. ! hpp.o:        hptopbm.h hpp.c
  323. !         $(CC) -c $(CFLAGS) hpp.c
  324.   
  325.   hpfntwrite.o:    hptopbm.h hpfntwrite.c
  326. !         $(CC) -c $(CFLAGS) hpfntwrite.c
  327.   
  328.   pbm2e24:    pbm2e24.o mem.o
  329.           $(CC) $(CFLAGS) -o pbm2e24 pbm2e24.o mem.o $(LIBFLAGS)
  330. --- 61,74 ----
  331.           @chmod 444 $@
  332.   
  333.   # components
  334. ! #mem.o:        mem.c
  335. ! #        $(CC) -c $(CFLAGS) mem.c
  336.   
  337. ! hpp.o:        hptopbm.h # hpp.c
  338. ! #        $(CC) -c $(CFLAGS) hpp.c
  339.   
  340.   hpfntwrite.o:    hptopbm.h hpfntwrite.c
  341. ! #        $(CC) -c $(CFLAGS) hpfntwrite.c
  342.   
  343.   pbm2e24:    pbm2e24.o mem.o
  344.           $(CC) $(CFLAGS) -o pbm2e24 pbm2e24.o mem.o $(LIBFLAGS)
  345. ***************
  346. *** 78,88 ****
  347. --- 78,95 ----
  348.   
  349.   $(LIBFILES):
  350.           uudecode < $@.UU
  351. +         chmod 444 $@
  352.   
  353.   myuid:
  354.           echo 'main() { printf("%d%c", getuid(), 10); exit(0); }' > myuid.c
  355.           $(CC) -o myuid myuid.c
  356.           rm -f myuid.c
  357. + 
  358. + regression:    hp2pbm
  359. +         psroff -t -Tlj testdoc > /tmp/testdoc.lj
  360. +         ./hp2pbm -r/tmp/new -d80,80 < /tmp/testdoc.lj
  361. +         $(BINDIR)/hp2pbm -r/tmp/old -d80,80 < /tmp/testdoc.lj
  362. +         ./hp2pbm '-r|pbm2e24' -d80,80 > /tmp/pipe < /tmp/testdoc.lj
  363.   
  364.   install:    hp2pbm myuid
  365.           test "`./myuid`" = 0 || \
  366. Index: ./hpfntwrite.c
  367. *** /tmp/PATCHold/./hpfntwrite.c    Sun Jan  5 23:18:51 1992
  368. --- ./hpfntwrite.c    Sun Jan  5 23:18:55 1992
  369. ***************
  370. *** 18,24 ****
  371.   #include "hptopbm.h"
  372.   
  373.   #ifndef    lint
  374. ! char SCCSid[] = "@(#)hpfntwrite.c: 1.1 91/12/03 00:34:42";
  375.   #endif
  376.   
  377.   #ifdef    FAXPAK
  378. --- 18,24 ----
  379.   #include "hptopbm.h"
  380.   
  381.   #ifndef    lint
  382. ! char SCCSid[] = "@(#)hpfntwrite.c: 1.3 92/01/05 23:16:27";
  383.   #endif
  384.   
  385.   #ifdef    FAXPAK
  386. ***************
  387. *** 66,72 ****
  388.           dpi,
  389.           pID,
  390.           top_dots,
  391. -         left_dots,
  392.           text_len;
  393.       double    hmi,
  394.           lhite,
  395. --- 66,71 ----
  396. ***************
  397. *** 118,124 ****
  398.   
  399.   struct    CHAR_BITMAP
  400.   {
  401. !     short len, hite, clen, toffs, loffs;
  402.       uchar **CH;
  403.   };
  404.   
  405. --- 117,124 ----
  406.   
  407.   struct    CHAR_BITMAP
  408.   {
  409. !     short len, hite, toffs, loffs;
  410. !     double clen;
  411.       uchar **CH;
  412.   };
  413.   
  414. ***************
  415. *** 214,226 ****
  416.       lpi = 6.0;
  417.       orgenv.page_len = PAGE_LEN;
  418.       orgenv.top_margin = new_topmargin = TOP_MARGIN;
  419. !     orgenv.left_margin = LEFT_MARGIN;
  420. !     orgenv.rite_margin = RITE_MARGIN;
  421.       orgenv.text_len = PAGE_LEN - TOP_MARGIN;
  422.       orgenv.text_len -= 3;
  423.       orgenv.lhite = 50;
  424.       orgenv.top_dots = fax_head_size + orgenv.top_margin*orgenv.lhite;
  425. -     orgenv.left_dots = 47;    /* dots = .157 in */
  426.       orgenv.dpi = 75;    /* hp 2686a */
  427.       stackpos = 0;
  428.       try_select = 0;
  429. --- 214,225 ----
  430.       lpi = 6.0;
  431.       orgenv.page_len = PAGE_LEN;
  432.       orgenv.top_margin = new_topmargin = TOP_MARGIN;
  433. !     orgenv.left_margin = LEFT_LOGICAL;
  434. !     orgenv.rite_margin = RITE_LOGICAL;
  435.       orgenv.text_len = PAGE_LEN - TOP_MARGIN;
  436.       orgenv.text_len -= 3;
  437.       orgenv.lhite = 50;
  438.       orgenv.top_dots = fax_head_size + orgenv.top_margin*orgenv.lhite;
  439.       orgenv.dpi = 75;    /* hp 2686a */
  440.       stackpos = 0;
  441.       try_select = 0;
  442. ***************
  443. *** 257,263 ****
  444.           {
  445.               cf = &hf->chars[i];
  446.               cf->CH = (uchar **)NULL;
  447. !             cf->len = cf->hite = cf->clen = cf->toffs = cf->loffs = 0;
  448.           }
  449.       }
  450.       hf = &hpfonts[LINEPRINTER];
  451. --- 256,263 ----
  452.           {
  453.               cf = &hf->chars[i];
  454.               cf->CH = (uchar **)NULL;
  455. !             cf->len = cf->hite = cf->toffs = cf->loffs = 0;
  456. !             cf->clen = 0;
  457.           }
  458.       }
  459.       hf = &hpfonts[LINEPRINTER];
  460. ***************
  461. *** 302,308 ****
  462.   xyinit()
  463.   {
  464.       BMY = orgenv.top_dots;
  465. !     BMX = 0.0;
  466.       GRAPHX = 0.0;
  467.   }
  468.   ovlyinit()
  469. --- 302,308 ----
  470.   xyinit()
  471.   {
  472.       BMY = orgenv.top_dots;
  473. !     BMX = LEFT_LOGICAL;
  474.       GRAPHX = 0.0;
  475.   }
  476.   ovlyinit()
  477. ***************
  478. *** 420,430 ****
  479.   end_bitmap(tname)
  480.   char *tname;
  481.   {
  482. !     int i, j, xmax;
  483.       FILE *fp;
  484.   
  485. !     if ((fp = fopen(tname, "w")) == NULL)
  486. !         die("cannot create pbm file %s\n",tname);
  487.   
  488.       ymax_used = yscale[max_ln-1];
  489.   #ifdef    FAXPAK
  490. --- 420,438 ----
  491.   end_bitmap(tname)
  492.   char *tname;
  493.   {
  494. !     int i, j, xmax, pipe;
  495.       FILE *fp;
  496.   
  497. !     if (tname[0] == '|') {
  498. !         fp = popen(tname+1, "w");
  499. !         pipe = 1;
  500. !     } else {
  501. !         fp = fopen(tname, "w");
  502. !         pipe = 0;
  503. !     }
  504. ! 
  505. !     if (fp == NULL)
  506. !         die("cannot create pbm file `%s'\n",tname);
  507.   
  508.       ymax_used = yscale[max_ln-1];
  509.   #ifdef    FAXPAK
  510. ***************
  511. *** 442,448 ****
  512.                   j,xmax,i,ymax_used);
  513.           (void)memset((char*)block[i], '\0', xmax);
  514.       }
  515. !     fclose(fp);
  516.   
  517.       ymax_used = xmax_used = 0;
  518.       orgenv.top_margin = new_topmargin;
  519. --- 450,460 ----
  520.                   j,xmax,i,ymax_used);
  521.           (void)memset((char*)block[i], '\0', xmax);
  522.       }
  523. !     if (pipe) {
  524. !         if (pclose(fp))
  525. !         die("Pipe failure in `%s'\n", tname);
  526. !     } else
  527. !         fclose(fp);
  528.   
  529.       ymax_used = xmax_used = 0;
  530.       orgenv.top_margin = new_topmargin;
  531. ***************
  532. *** 458,463 ****
  533. --- 470,477 ----
  534.   {
  535.       struct HPFONT *hpf;
  536.   
  537. +     if (try_select)
  538. +         best_match();
  539.       if (curenv->cur_fnt < 0 || curenv->cur_fnt >= MAX_FONT)
  540.           die("don't know font %d\n",curenv->cur_fnt);
  541.       hpf = &hpfonts[curenv->cur_fnt];
  542. ***************
  543. *** 492,500 ****
  544.   }
  545.   lr_default()
  546.   {
  547. !     curenv->left_margin = LEFT_MARGIN;
  548. !     curenv->left_dots = 47;
  549. !     curenv->rite_margin = RITE_MARGIN;
  550.   }
  551.   hmi_default()
  552.   {
  553. --- 506,513 ----
  554.   }
  555.   lr_default()
  556.   {
  557. !     curenv->left_margin = LEFT_LOGICAL;
  558. !     curenv->rite_margin = RITE_LOGICAL;
  559.   }
  560.   hmi_default()
  561.   {
  562. ***************
  563. *** 526,532 ****
  564.       if (cptr->CH)
  565.           free((char*)cptr->CH);
  566.       cptr->CH = (uchar **)NULL;
  567. !     cptr->len = cptr->hite = cptr->clen = cptr->toffs = cptr->loffs = 0;
  568.   }
  569.   clear1font(fptr)
  570.   struct HPFONT *fptr;
  571. --- 539,546 ----
  572.       if (cptr->CH)
  573.           free((char*)cptr->CH);
  574.       cptr->CH = (uchar **)NULL;
  575. !     cptr->len = cptr->hite = cptr->toffs = cptr->loffs = 0;
  576. !     cptr->clen = 0;
  577.   }
  578.   clear1font(fptr)
  579.   struct HPFONT *fptr;
  580. ***************
  581. *** 702,708 ****
  582.   rs_tlen(n)
  583.   double n;
  584.   {
  585. !     if (n && (n <= (curenv->page_len - curenv->top_margin)))
  586.           curenv->text_len = (int)n;
  587.       else if (!n)
  588.           tlen_default();
  589. --- 716,722 ----
  590.   rs_tlen(n)
  591.   double n;
  592.   {
  593. !     if (n && (n * curenv->lhite <= (PAGE_LEN*50) - curenv->top_dots - 150))
  594.           curenv->text_len = (int)n;
  595.       else if (!n)
  596.           tlen_default();
  597. ***************
  598. *** 711,720 ****
  599.   double n;
  600.   {
  601.       cfn = getcfn();
  602. !     if (n < curenv->rite_margin)
  603.       {
  604. !         curenv->left_margin = (int)n;
  605. !         curenv->left_dots = curenv->left_margin * cfn->space_len;
  606.       }
  607.   }
  608.   rs_mright(n)
  609. --- 725,735 ----
  610.   double n;
  611.   {
  612.       cfn = getcfn();
  613. !     if (LEFT_LOGICAL + (n * cfn->space_len) < curenv->rite_margin)
  614.       {
  615. !         curenv->left_margin = n * cfn->space_len + LEFT_LOGICAL;
  616. !         if (BMX < curenv->left_margin)
  617. !             BMX = curenv->left_margin;
  618.       }
  619.   }
  620.   rs_mright(n)
  621. ***************
  622. *** 728,739 ****
  623.   {
  624.       cfn = getcfn();
  625.       if (relative())
  626. !         BMX += n*cfn->space_len;
  627. !     else if (!(int)n)
  628. !         BMX = curenv->left_dots;
  629. !     else BMX = n*cfn->space_len;
  630. !     BMX = max(0.0, BMX);
  631. !     BMX = min(BMX, (double)((RITE_MARGIN-1)*30));    /* using 10cpi for max */
  632.   }
  633.   rs_row(n)
  634.   double n;
  635. --- 743,752 ----
  636.   {
  637.       cfn = getcfn();
  638.       if (relative())
  639. !         BMX = ((int)(BMX * 12) + (int)(n*cfn->space_len*12)) / 12.0;
  640. !     else BMX = LEFT_LOGICAL + n*cfn->space_len;
  641. !     BMX = max(LEFT_LOGICAL,BMX);
  642. !     BMX = min(BMX, RITE_LOGICAL);
  643.   }
  644.   rs_row(n)
  645.   double n;
  646. ***************
  647. *** 744,750 ****
  648.       {
  649.           curenv->top_margin = new_topmargin;
  650.           curenv->top_dots = fax_head_size + curenv->top_margin*curenv->lhite;
  651. !         BMY = (double)curenv->top_dots * curenv->lhite;
  652.           return;
  653.       }
  654.       if (relative())
  655. --- 757,763 ----
  656.       {
  657.           curenv->top_margin = new_topmargin;
  658.           curenv->top_dots = fax_head_size + curenv->top_margin*curenv->lhite;
  659. !         BMY = (double)curenv->top_dots;
  660.           return;
  661.       }
  662.       if (relative())
  663. ***************
  664. *** 757,763 ****
  665. --- 770,779 ----
  666.               return;
  667.           }
  668.           else if (BMY < 0)
  669. + /*
  670.               BMY = curenv->top_dots * curenv->lhite;
  671. + */
  672. +             BMY = curenv->top_dots;
  673.       }
  674.       else
  675.           BMY = curenv->top_dots + n * curenv->lhite;
  676. ***************
  677. *** 811,822 ****
  678.   double x;
  679.   {
  680.       if (relative())
  681. !         BMX += x;
  682.       else BMX = x;
  683. !     BMX = max(0.0, BMX);
  684.               /* max == rightmost legal pixel */
  685. !             /* would be pixel 29 if RIGHT_MARGIN == 0 */
  686. !     BMX = min(BMX, (double)((1+RITE_MARGIN)*30)-1);    
  687.   }
  688.   rs_Y(y,decipt)
  689.   double y;
  690. --- 827,837 ----
  691.   double x;
  692.   {
  693.       if (relative())
  694. !         BMX = ((int)(BMX * 12) + (int)(x * 12)) / 12.0;
  695.       else BMX = x;
  696. !     BMX = max(LEFT_LOGICAL, BMX);
  697.               /* max == rightmost legal pixel */
  698. !     BMX = min(BMX, RITE_LOGICAL);    
  699.   }
  700.   rs_Y(y,decipt)
  701.   double y;
  702. ***************
  703. *** 836,853 ****
  704.   int set;
  705.   {
  706.       lastspec.symset = set;
  707.   }
  708.   rs_spacing(n)
  709.   int n;
  710.   {
  711. -     cfn = getcfn();
  712. -     cfn->prop_spaced = n;
  713. -     if (cfn->real_spaced)
  714. -     {
  715. -         cfn->space_len = cfn->real_space_len;
  716. -         curenv->hmi = cfn->real_space_len;
  717. -     }
  718.       lastspec.prop_spaced = n;
  719.   }
  720.   rs_pitch(n)
  721.   double n;
  722. --- 851,863 ----
  723.   int set;
  724.   {
  725.       lastspec.symset = set;
  726. +     try_select = 1;
  727.   }
  728.   rs_spacing(n)
  729.   int n;
  730.   {
  731.       lastspec.prop_spaced = n;
  732. +     try_select = 1;
  733.   }
  734.   rs_pitch(n)
  735.   double n;
  736. ***************
  737. *** 893,899 ****
  738.   rs_ul(n)
  739.   double n;
  740.   {
  741. !     curenv->underline = (int)n;
  742.   }
  743.   rs_thru(n)
  744.   double n;
  745. --- 903,914 ----
  746.   rs_ul(n)
  747.   double n;
  748.   {
  749. !     curenv->underline = 1;        /* can't handle floating yet */
  750. ! }
  751. ! rs_ul_off(n)
  752. ! double n;
  753. ! {
  754. !     curenv->underline = 0;
  755.   }
  756.   rs_thru(n)
  757.   double n;
  758. ***************
  759. *** 1052,1059 ****
  760.           cbm->len = width/8 + 1;
  761.       else cbm->len = width/8;
  762.       cbm->hite = hite;
  763. !     if ((cbm->clen = delta/4) == 0)
  764. !         cbm->clen = 8*cbm->len;    /* yes, I do have some strange fonts */
  765.   
  766.       if (!cf->prop_spaced && c == 'x' && (!cf->chars[' '].clen))
  767.           cf->space_len = cbm->clen;
  768. --- 1067,1075 ----
  769.           cbm->len = width/8 + 1;
  770.       else cbm->len = width/8;
  771.       cbm->hite = hite;
  772. !     cbm->clen = delta/4.0;
  773. !     if (cbm->clen == 0)
  774. !         cbm->clen = 8.0*cbm->len;    /* yes, I do have some strange fonts */
  775.   
  776.       if (!cf->prop_spaced && c == 'x' && (!cf->chars[' '].clen))
  777.           cf->space_len = cbm->clen;
  778. ***************
  779. *** 1228,1235 ****
  780. --- 1244,1255 ----
  781.       if (k < 0 || k >= MAX_PAT)
  782.           k = SOLID;
  783.   
  784. + /*
  785.       bmx = (int)(BMX + .5);
  786.       bmy = (int)(BMY + .5);
  787. + */
  788. +     bmx = BMX;
  789. +     bmy = BMY;
  790.       hlen = (int)(curenv->Hlen + .5);
  791.       vlen = (int)(curenv->Vlen + .5);
  792.   
  793. ***************
  794. *** 1265,1271 ****
  795.   int c;
  796.   {
  797.       struct CHAR_BITMAP *cbm, *ubm;
  798. !     int i, j, k, curx, cury, localy, clen, before;
  799.   
  800.       if (see_thru)
  801.           return;
  802. --- 1285,1292 ----
  803.   int c;
  804.   {
  805.       struct CHAR_BITMAP *cbm, *ubm;
  806. !     int i, j, k, curx, cury, localy, before,startx,endx,curcol,newcol;
  807. !     double clen;
  808.   
  809.       if (see_thru)
  810.           return;
  811. ***************
  812. *** 1275,1282 ****
  813.   
  814.       switch(c)
  815.       {
  816.       case 0x0a:    rs_row(1.0);        return;
  817. !     case 0x0d:    rs_col((double)curenv->left_margin);    return;
  818.       case 0x0e:    setshift(SECONDARY);    return;
  819.       case 0x0f:    setshift(PRIMARY);    return;
  820.       }
  821. --- 1296,1308 ----
  822.   
  823.       switch(c)
  824.       {
  825. +     case 0x09:    curcol = (BMX - curenv->left_margin) / cfn->space_len;
  826. +             newcol = ((curcol + 8) / 8) * 8.0;
  827. +             rs_X((double)curenv->left_margin + 
  828. +                 newcol * cfn->space_len);
  829. +                 return;
  830.       case 0x0a:    rs_row(1.0);        return;
  831. !     case 0x0d:    rs_X((double)curenv->left_margin);    return;
  832.       case 0x0e:    setshift(SECONDARY);    return;
  833.       case 0x0f:    setshift(PRIMARY);    return;
  834.       }
  835. ***************
  836. *** 1293,1300 ****
  837.       if ((!cbm->len) && c != ' ' && c != '\b')
  838.           return;
  839.   
  840. !     bmx = (int)(BMX + .5);
  841. !     bmy = (int)(BMY + .5);
  842.       if (bmx + clen + cbm->loffs >= max_col)
  843.           return;
  844.       cury = bmy - cbm->toffs;
  845. --- 1319,1328 ----
  846.       if ((!cbm->len) && c != ' ' && c != '\b')
  847.           return;
  848.   
  849. !     bmx = (int)BMX;        /* positions should be truncated not rounded */
  850. !     bmy = (int)BMY;
  851. !     startx = bmx;
  852. ! 
  853.       if (bmx + clen + cbm->loffs >= max_col)
  854.           return;
  855.       cury = bmy - cbm->toffs;
  856. ***************
  857. *** 1319,1325 ****
  858.   
  859.       if (c > ' ')
  860.       {
  861. !         BMX += (double)clen;
  862.           ymax_used = max(ymax_used,yscale[cury + cbm->hite]);
  863.           xmax_used = max(xmax_used,xscale[curx]);
  864.       }
  865. --- 1347,1353 ----
  866.   
  867.       if (c > ' ')
  868.       {
  869. !         BMX = ((int)(BMX * 12) + (int)(clen * 12)) / 12.0;
  870.           ymax_used = max(ymax_used,yscale[cury + cbm->hite]);
  871.           xmax_used = max(xmax_used,xscale[curx]);
  872.       }
  873. ***************
  874. *** 1326,1350 ****
  875.       else
  876.       {
  877.           if (c != '\b')
  878. !             BMX += (double)clen;
  879. !         else BMX -= (double)clen;
  880.           xmax_used = max(xmax_used,xscale[bmx]);
  881.       }
  882.   
  883.       if (curenv->underline)
  884.       {
  885. !         int after = curx;
  886. ! 
  887. !         ubm = &cfn->chars['_'];
  888. !         for (i=0; i<cbm->hite; i++)
  889.           {
  890. !             curx = before;
  891. !             localy = yscale[cury+i];
  892. ! 
  893. !             for (j=0; curx<after; )
  894. !                 for (k=0; k<8 && curx<after; k++,curx++)
  895. !                     if (ubm->CH[i][j] & bit[k])
  896. !                         setpix(localy,xscale[curx]);
  897.           }
  898.       }
  899.       dotted = TRUE;
  900. --- 1354,1373 ----
  901.       else
  902.       {
  903.           if (c != '\b')
  904. !             BMX = ((int)(BMX * 12) + (int)(clen * 12)) / 12.0;
  905. !         else BMX = ((int)(BMX * 12) - (int)(clen * 12)) / 12.0;
  906.           xmax_used = max(xmax_used,xscale[bmx]);
  907.       }
  908.   
  909.       if (curenv->underline)
  910.       {
  911. !         endx = BMX;
  912. !         for (i = 5; i < 8 ; i++)        /* fixed underlining */
  913.           {
  914. !             curx = startx;
  915. !             localy = yscale[bmy+i];
  916. !             for (j=0; curx<endx ; curx++)
  917. !                 setpix(localy,xscale[curx]);
  918.           }
  919.       }
  920.       dotted = TRUE;
  921. Index: ./hpp.c
  922. *** /tmp/PATCHold/./hpp.c    Sun Jan  5 23:19:27 1992
  923. --- ./hpp.c    Sun Jan  5 23:19:33 1992
  924. ***************
  925. *** 21,27 ****
  926.   
  927.   #ifndef    lint
  928.   static char SCCSID[] =
  929. !     "@(#)hpp.c 1.2 91/12/04 04:03:57";
  930.   #endif
  931.   
  932.   #include "hptopbm.h"
  933. --- 21,27 ----
  934.   
  935.   #ifndef    lint
  936.   static char SCCSID[] =
  937. !     "@(#)hpp.c 1.4 92/01/05 23:16:48";
  938.   #endif
  939.   
  940.   #include "hptopbm.h"
  941. ***************
  942. *** 157,163 ****
  943.   int    rs_lpi(), rs_plen(), rs_mtop(),
  944.       create_fnthdr(), rs_dpi(), rs_graphxy(),
  945.       rs_pitch(), rs_tlen(), rs_mleft(), rs_mright(),
  946. !     rs_vmi(), rs_row(), rs_col(), rs_ul(), rs_thru(),
  947.       rs_hmi(), rs_lterm(), rs_setpitch(),
  948.       rs_fc_ctl(), rs_stack(), rs_hsize(), rs_hdsize(),
  949.       rs_vsize(), rs_vdsize(), rs_pid(), rs_prnpat();
  950. --- 157,163 ----
  951.   int    rs_lpi(), rs_plen(), rs_mtop(),
  952.       create_fnthdr(), rs_dpi(), rs_graphxy(),
  953.       rs_pitch(), rs_tlen(), rs_mleft(), rs_mright(),
  954. !     rs_vmi(), rs_row(), rs_col(), rs_ul(), rs_ul_off(), rs_thru(),
  955.       rs_hmi(), rs_lterm(), rs_setpitch(),
  956.       rs_fc_ctl(), rs_stack(), rs_hsize(), rs_hdsize(),
  957.       rs_vsize(), rs_vdsize(), rs_pid(), rs_prnpat();
  958. ***************
  959. *** 201,207 ****
  960.       {"&aH",    "Move to Column (Decipoints)",NULL,movedx },
  961.       {"&aV",    "Move to Row (Decipoints)",NULL,movedy },
  962.       {"&dD",    "Underline on",        NULL,    NULL,    rs_ul },
  963. !     {"&d@",    "Underline off",    NULL,    NULL,    rs_ul },
  964.       {"&pX",    "Transparent Print",    NULL,    NULL,    rs_thru },
  965.       {"&lL",    "Perf Skip",         pscont },
  966.       {"&kH",    "HMI",            NULL,    NULL,    rs_hmi },
  967. --- 201,207 ----
  968.       {"&aH",    "Move to Column (Decipoints)",NULL,movedx },
  969.       {"&aV",    "Move to Row (Decipoints)",NULL,movedy },
  970.       {"&dD",    "Underline on",        NULL,    NULL,    rs_ul },
  971. !     {"&d@",    "Underline off",    NULL,    NULL,    rs_ul_off },
  972.       {"&pX",    "Transparent Print",    NULL,    NULL,    rs_thru },
  973.       {"&lL",    "Perf Skip",         pscont },
  974.       {"&kH",    "HMI",            NULL,    NULL,    rs_hmi },
  975. ***************
  976. *** 827,834 ****
  977.           if (c == '\n')
  978.               movetype = RELATIVE;
  979.   
  980. !         if (c == '\f')
  981.               pbmeject(TRUE);
  982.           else prt_hpchr(c);
  983.           movetype = ABSOLUTE;
  984.           }
  985. --- 827,836 ----
  986.           if (c == '\n')
  987.               movetype = RELATIVE;
  988.   
  989. !         if (c == '\f') {
  990.               pbmeject(TRUE);
  991. +             rs_row(0.0);
  992. +         }
  993.           else prt_hpchr(c);
  994.           movetype = ABSOLUTE;
  995.           }
  996. ***************
  997. *** 841,846 ****
  998. --- 843,850 ----
  999.   movex(num)
  1000.   double num; {
  1001.       curX = num;
  1002. +     if (movetype == ABSOLUTE)
  1003. +     curX += LEFT_LOGICAL;
  1004.       if (rast)
  1005.       rs_X(curX);
  1006.       if (genps)
  1007. ***************
  1008. *** 859,864 ****
  1009. --- 863,870 ----
  1010.   movedx(num)
  1011.   double num; {
  1012.       curX = num * 300.0 / 720.0;
  1013. +     if (movetype == ABSOLUTE)
  1014. +     curX += LEFT_LOGICAL;
  1015.       if (rast)
  1016.       rs_X(curX);
  1017.       if (genps)
  1018. ***************
  1019. *** 1005,1011 ****
  1020.   int inc; {
  1021.       int (*old_func)();
  1022.   
  1023. !     sprintf(pbmtname,"%s.%d",pbmname,pbmpage);
  1024.       pbmpage += inc;
  1025.       if (have_auto_macro > -1) {
  1026.       old_func = getchar_func;
  1027. --- 1011,1020 ----
  1028.   int inc; {
  1029.       int (*old_func)();
  1030.   
  1031. !     if (pbmname[0] == '|')
  1032. !     strcpy(pbmtname, pbmname);
  1033. !     else
  1034. !     sprintf(pbmtname,"%s.%d",pbmname,pbmpage);
  1035.       pbmpage += inc;
  1036.       if (have_auto_macro > -1) {
  1037.       old_func = getchar_func;
  1038. Index: ./hptopbm.h
  1039. *** /tmp/PATCHold/./hptopbm.h    Sun Jan  5 23:20:12 1992
  1040. --- ./hptopbm.h    Sun Jan  5 23:20:19 1992
  1041. ***************
  1042. *** 16,25 ****
  1043.       Canada K0A 1T0
  1044.       (613) 832-0541
  1045.   
  1046. !     Function: Header file for hp2pbm.  1.1 91/12/03 00:34:41
  1047.    */
  1048.   
  1049. ! #define    VERSION    "hp2pbm V1.00"
  1050.   
  1051.   #include <stdio.h>
  1052.   #include <ctype.h>
  1053. --- 16,25 ----
  1054.       Canada K0A 1T0
  1055.       (613) 832-0541
  1056.   
  1057. !     Function: Header file for hp2pbm.  1.3 92/01/05 23:17:02
  1058.    */
  1059.   
  1060. ! #define    VERSION    "hp2pbm V1.01"
  1061.   
  1062.   #include <stdio.h>
  1063.   #include <ctype.h>
  1064. ***************
  1065. *** 51,56 ****
  1066. --- 51,57 ----
  1067.   
  1068.   #define    TOP_MARGIN    3    /* half inch, 300/6lpi = 3 lines */
  1069.   #define    LEFT_MARGIN    0    /* char column pos, not dots */
  1070. + #define LEFT_LOGICAL    50
  1071.   
  1072.   /* CONFIG: if !A4, define your default paper size (A4/LETTER are best for fax) */
  1073.   #if    (!A4) && (!LETTER) && (!LEGAL) && (!B5)
  1074. ***************
  1075. *** 60,80 ****
  1076. --- 61,85 ----
  1077.   #if    LETTER
  1078.   #define    PAGE_LEN    66
  1079.   #define    RITE_MARGIN    80
  1080. + #define RITE_LOGICAL    LEFT_LOGICAL+2400
  1081.   #endif
  1082.   
  1083.   #if    A4
  1084.   #define    PAGE_LEN    70
  1085.   #define    RITE_MARGIN    77
  1086. + #define RITE_LOGICAL    LEFT_LOGICAL+2338
  1087.   #endif
  1088.   
  1089.   #if    LEGAL
  1090.   #define    PAGE_LEN    84
  1091.   #define    RITE_MARGIN    80
  1092. + #define RITE_LOGICAL    LEFT_LOGICAL+2400
  1093.   #endif
  1094.   
  1095.   #if    B5
  1096.   #define    PAGE_LEN    60
  1097.   #define    RITE_MARGIN    66
  1098. + #define RITE_LOGICAL    LEFT_LOGICAL+2400    /* dont know about B5's */
  1099.   #endif
  1100.   
  1101.   #define    PRIMARY        1
  1102.  
  1103. -- 
  1104. Chris Lewis; clewis@ferret.ocunix.on.ca; Phone: Canada 613 832-0541
  1105. Psroff 3.0 info: psroff-request@ferret.ocunix.on.ca
  1106. Moderator of the ferret list: ferret-request@ferret.ocunix.on.ca
  1107. **** NEVER let something mechanical know you're in a hurry. ****
  1108.  
  1109. exit 0 # Just in case...
  1110.